
  10 CLEAR ;NT=0
  12 PRINT "     PROGRAM CREDITS
  14 PRINT "KEY▼      MENU
  16 PRINT "   1
  18 PRINT "   2
  20 PRINT "   3
  22 PRINT "   4
  24 PRINT "   5
  26 PRINT "   6
  28 PRINT "   7
  30 PRINT "   8
  32 PRINT "   9
  34 PRINT "   0 RETURNS MENU
  36 FOR A=0TO 99
  38 IF &(23)=8GOTO 100
  40 IF &(22)=8GOTO 200
  42 IF &(21)=8GOTO 300
  44 IF &(23)=4GOTO 400
  46 IF &(22)=4GOTO 500
  48 IF &(21)=4GOTO 600
  50 IF &(23)=2GOTO 700
  52 IF &(22)=2GOTO 800
  54 IF &(21)=2GOTO 900
  56 NEXT A;GOTO 10
:RETURN ;RUN 
>